---
title: "Waste Lands - America's forgotten nuclear legacy"
author: Philipp Ottolinger
output:
flexdashboard::flex_dashboard:
theme: journal
social: menu
source_code: embed
---
```{r setup, include = FALSE}
library(flexdashboard)
library(shiny)
library(jsonlite)
library(maptools)
library(ggplot2)
library(tidyr)
library(dplyr)
library(purrr)
library(leaflet)
library(plotly)
sites <- read.csv("data/nCoV2019_2020_line_list_open_outside.csv")
sites$country2 <- ifelse(sites$country == "China", "orange","green")
## cases per city
cases_per_city <-
sites %>%
group_by(city, country, latitude, longitude, country2) %>%
tally()
```
Column {data-width=650}
-----------------------------------------------------------------------
### All sites and their current status
```{r}
leaflet() %>%
addTiles() %>%
#fitBounds(-127.44,24.05,-65.30,50.35) %>%
addCircleMarkers(cases_per_city$longitude,
cases_per_city$latitude,
color = cases_per_city$country2,
radius = cases_per_city$n/2,
fill = T,
fillOpacity = 0.2,
opacity = 0.6,
popup = paste(cases_per_city$country,
cases_per_city$city,
sep = ", ")) %>%
addLegend("bottomleft",
colors = c("orange","green"),
labels = c("China",
"other"),
opacity = 0.8)
```